set mouseposition to point(the mouseH, the mouseV)
if inside(mouseposition, rect(0, 30, 30, 450)) then
changecursor("CursorLeft")
scrollpictleft(10)
else
if inside(mouseposition, rect(610, 30, 640, 450)) then
changecursor("CursorRight")
scrollpictright(10)
else
changecursor("Shrink")
end if
end if
end
on exitFrame
go(the frame)
end
on scrollpictleft step
if the left of sprite 52 < 0 then
set the locH of sprite 43 to the locH of sprite 43 + step
repeat with spriteNum = 43 to 51
set the locH of sprite (spriteNum + 1) to the locH of sprite spriteNum - the width of sprite spriteNum + (320 - (the width of sprite (spriteNum + 1) / 2))
end repeat
else
set the locH of sprite 52 to the width of sprite 52 / 2
end if
end
on scrollpictright step
if the right of sprite 43 > 640 then
set the locH of sprite 43 to the locH of sprite 43 - step
repeat with spriteNum = 43 to 51
set the locH of sprite (spriteNum + 1) to the locH of sprite spriteNum - the width of sprite spriteNum + (320 - (the width of sprite (spriteNum + 1) / 2))
end repeat
else
set the locH of sprite 43 to 640 - (the width of sprite 43 / 2)
end if
end
on changecursor cname
global cursorsprite
set cursorsprite to 54
puppetSprite(cursorsprite, 1)
set the memberNum of sprite cursorsprite to the number of member cname
